Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Лабораторна робота №12

Інформація про навчальний заклад

ВУЗ:
Ужгородський національний університет
Інститут:
Не вказано
Факультет:
Програмна Інженерія
Кафедра:
Не вказано

Інформація про роботу

Рік:
2015
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови

Частина тексту файла

ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №12 Лабораторна робота №12. Тема: Робота з множинами. Мета: Застосування операцій над множинами для розв'язування задач. Вивчити питання: Множина. Опис типу. Операції над множинами. Завдання до роботи: Скласти програму на мові Pascal для розв'язування задачі за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 Дано N множин. Визначити елементи, які існують у всіх множинах. ХІД РОБОТИ Дано N множин. Визначити елементи, які існують у всіх множинах. uses crt; type mnz=set of byte; var a:array[1..100] of mnz; n,i,j,x:byte; m:mnz; begin clrscr; write('Kilkist mnozun n='); readln(n); writeln('Enter elements ',n,' mnozun, end enter-number mnozunu:'); for i:=1 to n do begin writeln('mnozuna',i); a[i]:=[]; repeat repeat readln(x); until x in [0..255]; a[i]:=a[i]+[x]; until x=i; end; clrscr; writeln('Vuxidna mnozuna:'); for i:=1 to n do begin write(i:2,'-> '); for j:=0 to 255 do if j in a[i] then write(j:4); writeln; end; m:=a[1]; for i:=1 to n do m:=m*a[i]; writeln('Elements all mnozun:'); if m=[] then write('No elements!') else for j:=0 to 255 do if j in m then write(j:4); readln end. / / ВИСНОВОК За допомогою даної лабораторної роботи я навчилася застосовувати операцій над множинами для розв'язування задач.
Антиботан аватар за замовчуванням

03.05.2018 21:05

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини